use Test::More tests => 1;
use strict;

    use DateTime;
    use DateTime::Cursor;

    # use default iso8605 stringified format, and iterate
    # the cursor at one month intervals for 12 months
    my $default_cursor = new DateTime::Cursor({ 'interval' => 'days'});
    foreach(1 .. 12) {
        print "next value for cursor is $default_cursor\n";
        $default_cursor->scroll_forward();
    }
        
    use DateTime::TimeZone;    
    my $denver_tz = DateTime::TimeZone->new({name => 'America/Denver'});
    my $denver_tz_cursor = new DateTime::Cursor({'timezone' => $denver_tz});
    print "Current time in Denver is $denver_tz_cursor\n";

	use DateTime::Format::Mail;
	my $mail_format = DateTime::Format::Mail->new();
	my $mail_formatted_cursor = new DateTime::Cursor({'formatter' => $mail_format});
	print "Cursor in mail format $mail_formatted_cursor\n";

ok(1, "synopsis code executed without errors");
1;
